home *** CD-ROM | disk | FTP | other *** search
/ Over 1,000 Windows 95 Programs / Over 1000 Windows 95 Programs (Microforum) (Disc 1).iso / 1271 / easy.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1997-03-18  |  5.9 KB  |  249 lines
  1. VERSION 2.00
  2. Begin Form EASY 
  3.    AutoRedraw      =   -1  'True
  4.    BorderStyle     =   3  'Fixed Double
  5.    Caption         =   "EASY"
  6.    ClientHeight    =   5595
  7.    ClientLeft      =   8475
  8.    ClientTop       =   3360
  9.    ClientWidth     =   8565
  10.    FontBold        =   0   'False
  11.    FontItalic      =   0   'False
  12.    FontName        =   "Courier New"
  13.    FontSize        =   8.25
  14.    FontStrikethru  =   0   'False
  15.    FontUnderline   =   0   'False
  16.    Height          =   6285
  17.    Left            =   8415
  18.    LinkTopic       =   "Form1"
  19.    ScaleHeight     =   5595
  20.    ScaleWidth      =   8565
  21.    Top             =   2730
  22.    Width           =   8685
  23.    Begin Timer Timer1 
  24.       Interval        =   125
  25.       Left            =   360
  26.       Top             =   240
  27.    End
  28.    Begin Menu menuLine 
  29.       Caption         =   "Line"
  30.       Begin Menu menuExit 
  31.          Caption         =   "E&xit"
  32.       End
  33.       Begin Menu menuOnLine 
  34.          Caption         =   "OnLine"
  35.       End
  36.       Begin Menu menuOffLine 
  37.          Caption         =   "OffLine"
  38.          Enabled         =   0   'False
  39.       End
  40.    End
  41.    Begin Menu menuChange 
  42.       Caption         =   "Change"
  43.       Begin Menu menuPort 
  44.          Caption         =   "Port"
  45.          Begin Menu menuCOM1 
  46.             Caption         =   "COM1"
  47.             Checked         =   -1  'True
  48.          End
  49.          Begin Menu menuCOM2 
  50.             Caption         =   "COM2"
  51.          End
  52.          Begin Menu menuCOM3 
  53.             Caption         =   "COM3"
  54.          End
  55.          Begin Menu menuCOM4 
  56.             Caption         =   "COM4"
  57.          End
  58.       End
  59.       Begin Menu menuBaud 
  60.          Caption         =   "Baud"
  61.          Begin Menu menu110 
  62.             Caption         =   "110"
  63.          End
  64.          Begin Menu menu300 
  65.             Caption         =   "300"
  66.          End
  67.          Begin Menu menu1200 
  68.             Caption         =   "1200"
  69.          End
  70.          Begin Menu menu2400 
  71.             Caption         =   "2400"
  72.          End
  73.          Begin Menu menu4800 
  74.             Caption         =   "4800"
  75.          End
  76.          Begin Menu menu9600 
  77.             Caption         =   "9600"
  78.          End
  79.          Begin Menu menu19200 
  80.             Caption         =   "19200"
  81.             Checked         =   -1  'True
  82.          End
  83.          Begin Menu menu38400 
  84.             Caption         =   "38400"
  85.          End
  86.          Begin Menu menu57600 
  87.             Caption         =   "57600"
  88.          End
  89.       End
  90.    End
  91. ' EASY.BAS
  92. Option Explicit
  93. Sub Form_KeyPress (KeyAscii As Integer)
  94.     Dim Code As Integer
  95.     '''EASY.Print "["; Hex$(KeyAscii); "]";
  96.     If KeyAscii <> 10 Then
  97.       Code = SioPutc(ThePort, KeyAscii)
  98.     End If
  99. End Sub
  100. Sub Form_Load ()
  101.     Dim Row As Integer
  102.     BaudRateTable(0) = "110"
  103.     BaudRateTable(1) = "300"
  104.     BaudRateTable(2) = "1200"
  105.     BaudRateTable(3) = "2400"
  106.     BaudRateTable(4) = "4800"
  107.     BaudRateTable(5) = "9600"
  108.     BaudRateTable(6) = "19200"
  109.     BaudRateTable(7) = "38400"
  110.     BaudRateTable(8) = "57600"
  111.     FatalFlag = 0
  112.     ThePort = COM1
  113.     TheBaudCode = Baud19200
  114.     OnLineFlag = 0
  115.     Call ShowConfig
  116.     Call DisplayInit(EASY)
  117. End Sub
  118. Sub menu110_Click ()
  119.   Call UncheckBaudRate
  120.   menu110.Checked = True
  121.   TheBaudCode = Baud110
  122.   Call SetBaud
  123.   Call ShowConfig
  124. End Sub
  125. Sub menu1200_Click ()
  126.   Call UncheckBaudRate
  127.   menu1200.Checked = True
  128.   TheBaudCode = Baud1200
  129.   Call SetBaud
  130.   Call ShowConfig
  131. End Sub
  132. Sub menu19200_Click ()
  133.   Call UncheckBaudRate
  134.   menu19200.Checked = True
  135.   TheBaudCode = Baud19200
  136.   Call SetBaud
  137.   Call ShowConfig
  138. End Sub
  139. Sub menu2400_Click ()
  140.   Call UncheckBaudRate
  141.   menu2400.Checked = True
  142.   TheBaudCode = Baud2400
  143.   Call SetBaud
  144.   Call ShowConfig
  145. End Sub
  146. Sub menu300_Click ()
  147.   Call UncheckBaudRate
  148.   menu300.Checked = True
  149.   TheBaudCode = Baud300
  150.   Call SetBaud
  151.   Call ShowConfig
  152. End Sub
  153. Sub menu38400_Click ()
  154.   Call UncheckBaudRate
  155.   menu38400.Checked = True
  156.   TheBaudCode = Baud38400
  157.   Call SetBaud
  158.   Call ShowConfig
  159. End Sub
  160. Sub menu4800_Click ()
  161.   Call UncheckBaudRate
  162.   menu4800.Checked = True
  163.   TheBaudCode = Baud4800
  164.   Call SetBaud
  165.   Call ShowConfig
  166. End Sub
  167. Sub menu57600_Click ()
  168.   Call UncheckBaudRate
  169.   menu57600.Checked = True
  170.   TheBaudCode = Baud57600
  171.   Call SetBaud
  172.   Call ShowConfig
  173. End Sub
  174. Sub menu9600_Click ()
  175.   Call UncheckBaudRate
  176.   menu9600.Checked = True
  177.   TheBaudCode = Baud9600
  178.   Call SetBaud
  179.   Call ShowConfig
  180. End Sub
  181. Sub menuCOM1_Click ()
  182.   Call UncheckComPorts
  183.   menuCOM1.Checked = True
  184.   ThePort = COM1
  185.   Call ShowConfig
  186. End Sub
  187. Sub menuCOM2_Click ()
  188.   Call UncheckComPorts
  189.   menuCOM2.Checked = True
  190.   ThePort = COM2
  191.   Call ShowConfig
  192. End Sub
  193. Sub menuCOM3_Click ()
  194.   Call UncheckComPorts
  195.   menuCOM3.Checked = True
  196.   ThePort = COM3
  197.   Call ShowConfig
  198. End Sub
  199. Sub menuCOM4_Click ()
  200.   Call UncheckComPorts
  201.   menuCOM4.Checked = True
  202.   ThePort = COM4
  203.   Call ShowConfig
  204. End Sub
  205. Sub menuExit_Click ()
  206.   Call GoOffLine
  207.   End
  208. End Sub
  209. Sub menuOffLine_Click ()
  210.   menuChange.Enabled = True
  211.   menuOffline.Enabled = False
  212.   menuOnline.Enabled = True
  213.   Call GoOffLine
  214.   Call ShowConfig
  215. End Sub
  216. Sub menuOnLine_Click ()
  217.   menuOffline.Enabled = True
  218.   menuOnline.Enabled = False
  219.   menuChange.Enabled = False
  220.   Call DisplayInit(EASY)
  221.   Call GoOnLine
  222.   Call ShowConfig
  223. End Sub
  224. Sub Timer1_Timer ()
  225.   If OnLineFlag Then
  226.     'get incoming serial data
  227.     Call GetIncoming
  228.   End If
  229. End Sub
  230. Sub UncheckBaudRate ()
  231. 'uncheck all baud rates
  232. menu110.Checked = False
  233. menu300.Checked = False
  234. menu1200.Checked = False
  235. menu2400.Checked = False
  236. menu4800.Checked = False
  237. menu9600.Checked = False
  238. menu19200.Checked = False
  239. menu38400.Checked = False
  240. menu57600.Checked = False
  241. End Sub
  242. Sub UncheckComPorts ()
  243. 'uncheck all COM ports
  244. menuCOM1.Checked = False
  245. menuCOM2.Checked = False
  246. menuCOM3.Checked = False
  247. menuCOM4.Checked = False
  248. End Sub
  249.